<!--#include file="news_inc.asp" -->
<!--#include virtual="/common/Cls_Page.asp" -->
<%
	
If Request.ServerVariables ("Request_Method")="POST" Then
	news_type	= Reform("news_type") 
Else
	news_type	= Requery("news_type") 
End If 
If news_type="" Then 
	news_type_name="资讯"
Else
	news_type_name=news_type
End If 
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="pragma" content="no-cache" />
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<meta http-equiv="Content-Language" content="zh-cn" />
<meta name="robots" content="all" />
<meta name="author" content="963123.com" />
<meta name="Copyright" content="Copyright (c) 2010 963123.com" />
<meta name="Description" content="海南家政信息服务平台" />
<meta name="Keywords" content="海南家政网,家政,家教,家庭服务,保洁,保姆,护理,钟点工,海南旅游,海南美食,生活,生活服务" />
<meta http-equiv="X-UA-Compatible" content="IE=EmulateIE7" />
<title><%=news_type_name%>_资讯_海南家政信息服务请拔963123</title>
<link href="/skin/lafot/view.css" rel="stylesheet" type="text/css" media="screen" />
</head>
<body>
<!--#include Virtual="/include/head.asp" -->

<!--E:Header-->
<div id="current">
  <div class="m">
    <p class="idata tl">您的当前位置：<a href="/"><strong>首页</strong></a> > <a href="/news/">资讯</a> > <%=news_type_name%></p>
  </div>
</div>
<div id="content">
  <div class="m" id="main">
    <div class="V-L-Con">
    	<div class="C-Main">
		<%	

		Dim Ors		
		Set Ors = New Class_Page
		Sql = " 1=1 "
		Sql = EqualSql("it_name",news_type,Sql)
		'================================
		'Table 查询的表或是视图
		Ors.Table="uvw_News"

		'Field SQL语句SELECT数据库的字段
		Ors.Field="Info_ID,Info_Title,Info_URL,Update_Date"

		'Pkey主键
		Ors.Pkey="Info_ID"

		'OrderBy 排序字段


		Ors.OrderBy="Update_Date DESC"

		Ors.PageSize=30 '每页记录数

		'Condition 使用的条件，Tt_Title_Sql.....等等
		Ors.Condition=sql

		'PostString Tt_Title表单POST过来的值进行传递，该处适用POST和GET
		Ors.PostString = "news_type"

		RecCount = Ors.RecCount() '记录总数
		Array_List = Ors.ResultSet() '返回ResultSet

		If RecCount>0 Then
		%>       
        <div class="moreNews">
        <h2><%=news_type_name%>:</h2>

        	<ul>
				<% 
				For i=0 To UBound(Array_List,2)
					Info_ID		= Array_List(0,i)
					Info_Title	= Array_List(1,i)
					Info_URL	= Array_List(2,i)
					Update_Date	= Month(Array_List(3,i))&"月"& day(Array_List(3,i))&"日"
					If Info_URL<>"" Then 
						news_detail_url = Info_URL
					Else			
						news_detail_url = "/news/news_view.asp?Info_ID="&Info_ID
					End If 

				%>
            	<li><a href="<%=news_detail_url%>">·[<%=Update_Date%>] <%=Info_Title%></a></li>
				<% Next %>

            </ul>
        </div>

        <!-- E:moreNews-->
		<% If Ors.PageCount()>1 Then %>
		<div class="pages tc"><% Call Ors.ShowPage4() %></div> 
		<% End If %>
		<% End If %>
		</div>
        
    </div>
    <div class="V-R-Con">
        <div class="mod-right picShow-Article">
            <div class="hd"><h2>图片新闻</h2></div>
            <div class="bd">
            <ul>
                <% Call Get_News_List("频道图片新闻",4) %> 
            </ul>
            </div>
        </div>
        
        <div class="mod-right Day-Article">
            <div class="hd"><h2>海南新闻</h2></div>
            
            <div class="bd">
                <div class="innerBox">
                <ul class="toplist">
				<% Call Get_News_List6("频道海南新闻",6) %>
          		</ul>
                </div>
            </div>
        </div>
        
        <div class="mod-right picShow-Article">
            <div class="hd"><h2>热点视频</h2></div>
            <div class="bd">
            <ul>
                <% Call Get_News_List("频道视频新闻",4) %> 
            </ul>
            </div>
        </div>
        
    </div>
  </div>
</div>
<!--E:Content-->
<!--#include Virtual="/include/bottom.asp" -->
</body>
</html>
